home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / util / misc / EasyElements.lha / EasyElements / Source / EEdef.c < prev    next >
C/C++ Source or Header  |  1995-04-04  |  8KB  |  57 lines
  1. struct IntuiMessage *imsg;
  2. struct Gadget *gad;
  3.  
  4. ULONG imsgClass;
  5. ULONG imsgCode;
  6. ULONG input;
  7.  
  8. int current = 0;
  9.  
  10. BOOL terminated = FALSE;
  11.  
  12. void fool_DICE(void) { _waitwbmsg(); }
  13. #define main _main
  14.  
  15. static char *element[] = { "actinium" , "aluminium" , "americium" , "antinony" , "argon" , "arsenic" , "astatine" , "barium" , "berkelium" , "beryillium" , "bismuth" , "boron" , "bromine" , "cadmium" , "calcium" , "californium" , "carbon" , "cerium" ,
  16.                "cesium" , "chlorine" , "chromium" , "cobalt" , "copper" , "curium" , "dysprosium" , "einsteinium" , "erbium" , "europium" , "fermium" , "fluorine" , "francium" , "gadolinium" , "gallium" , "germanium" , "gold", "hafnium",
  17.                "helium" , "holmium" , "hydrogen" , "indium" , "iodine" , "iridium" , "iron" , "krypton" , "lanthanum" , "lawrencium" , "lead" , "lithium" , "lutetium" , "magnesium" , "manganese" , "mendelevium" , "mercury" , "molybdenum",
  18.                "neodymium" , "neon" , "neptunium" , "nickel" , "niobium" , "nitrogen" , "nobelium" , "osmium" , "oxygen" , "palladium" , "phosphorus" , "platinum" , "plutonium" , "polonium" , "potassium" , "praeseodymium" , "promethium" ,
  19.                "protactinium" , "radium" , "radon" , "rhenium" , "rhodium" , "rubidium" , "ruthenium" , "samarium" , "scandium" , "selenium" , "silicon" , "silver" , "sodium" , "strontium" , "sulfur" , "tantalum" , "techetium" , "tellurium" ,
  20.                "terbium" , "thallium" , "thorium" , "thulium" , "tin" , "titanium" , "tungsten" , "unnilhexium" , "unnilpentium" , "unnilquadium" , "uranium" , "vandium" , "xenon" , "ytterbium" , "yttrium" , "zinc" , "zirconium" };
  21. static char *symbol[] = { "Ac" , "Al" , "Am" , "Sb" , "Ar" , "As" , "At" , "Ba" , "Bk" , "Be" , "Bi" , "B" , "Br" , "Cd" , "Ca" , "Cf" , "C" , "Ce" , "Cs" , "Cl" , "Cr" , "Co" , "Cu" , "Cm" , "Dy" , "Es" , "Er" , "Eu" , "Fm" , "F" , "Fr" , "Gd" , "Ga" ,
  22.               "Ge" , "Au" , "Hf" , "He" , "Ho" , "H" , "In" , "I" , "Ir" , "Fe" , "Kr" , "La" , "Lr" , "Pb" , "Li" , "Lu" , "Mg" , "Mn" , "Md" , "Hg" , "Mo" , "Nd" , "Ne" , "Np" , "Ni" , "Nb" , "N" , "No" , "Os" , "O" , "Pd" , "P" , "Pt" ,
  23.               "Pu" , "Po" , "K" , "Pr" , "Pm" , "Pa" , "Ra" , "Rn" , "Re" , "Rh" , "Rb" , "Ru" , "Sm" , "Sc" , "Se" , "Si" , "Ag" , "Na" , "Sr" , "S" , "Ta" , "Tc" , "Te" , "Tb" , "Tl" , "Th" , "Tm" , "Sn" , "Ti" , "W" , "Unh" , "Unp" ,
  24.               "Unq" , "U" , "V" , "Xe" , "Yb" , "Y" , "Zn" , "Zr" };
  25. static char *number[] = { "89" , "13" , "95" , "51" , "18" , "33" , "85" , "56" , "97" , "4" , "83" , "5" , "35" , "48" , "20" , "98" , "6" , "58" , "55" , "17" , "24" , "27" , "29" , "96" , "66" , "99" , "68" , "63" , "100" , "9" , "87" , "64" , "31" ,
  26.               "32" , "79" , "72" , "2" , "67" , "1" , "49" , "53" , "77" , "26" , "36" , "57" , "103" , "82" , "3" , "71" , "12" , "25" , "101" , "80" , "42" , "60" , "10" , "93" , "28" , "41" , "7" , "102" , "76" , "8" , "46" , "15" , "78" ,
  27.               "94" , "84" , "19" , "59" , "61" , "91" , "88" , "86" , "75" , "45" , "37" , "44" , "62" , "21" , "34" , "14" , "47" , "11" , "38" , "16" , "73" , "43" , "52" , "65" , "81" , "90" , "69" , "50" , "22" , "74" , "106" , "105" ,
  28.               "104" , "92" , "23" , "54" , "70" , "39" , "30" , "40" };
  29. static char *weight[] = { "227" , "26.9815" , "(243)" , "121.75" , "39.948" , "74.9216" , "(210)" , "137.34" , "(247)" , "9.0122" , "208.98" , "10.811" , "79.904" , "112.4" , "40.08" , "(251)" , "12.01115" , "140.12" , "132.905" , "35.453" , "51.996" ,
  30.               "58.9332" , "63.54" , "(247)" , "162.5" , "(254)" , "167.26" , "151.96" , "(257)" , "18.9984" , "(223)" , "157.25" , "69.72" , "72.59" , "196.967" , "178.49" , "4.0026" , "164.93" , "1.00797" , "114.82" , "126.9044" , "192.2" ,
  31.               "55.847" , "83.8" , "138.91" , "(260)" , "207.19" , "6.914" , "174.97" , "24.305" , "54.938" , "(258)" , "200.59" , "95.94" , "144.24" , "20.1797" , "237" , "58.6934" , "92.906" , "14.0067" , "(259)" , "190.2" , "15.9994" ,
  32.               "106.4" , "30.9738" , "195.09" , "(244)" , "(210)" , "39.0983" , "140.907" , "(145)" , "231" , "226" , "(222)" , "186.2" , "102.905" , "85.47" , "101.07" , "150.35" , "44.956" , "78.96" , "28.086" , "107.8682" , "22.9898" ,
  33.               "87.62" , "32.064" , "180.948" , "(99)" , "127.6" , "158.924" , "204.37" , "232.038" , "168.934" , "118.69" , "47.88" , "183.85" , "-" , "-" , "-" , "238.03" , "50.942" , "131.3" , "173.04" , "88.905" , "65.37" , "91.22" };
  34. static char *gravity[] = { "10.07" , "2.702" , "11.7" , "6.684" , "1.784" , "5.727" , "-" , "3.5" , "14" , "1.85" , "9.8" , "3.33" , "2.928" , "8.642" , "1.55" , "-" , "1.8+3.5" , "6.9" , "1.873" , "1.56" , "7.2" , "8.9" , "8.92" , "7" , "8.56" , "-" ,
  35.                "9.16" , "5.24" , "-" , "1.7" , "-" , "7.95" , "5.904" , "5.35" , "19.3" , "13.3" , "0.1785" , "8.76" , "0.0899" , "7.3" , "4.93" , "22.42" , "7.86" , "3.708" , "6.15" , "-" , "11.344" , "0.534" , "9.74" , "1.74" , "7.2" ,
  36.                "-" , "13.55" , "10.2" , "6.9" , "0.9002" , "19.5" , "8.9" , "8.55" , "1.2506" , "-" , "22.48" , "1.429" , "11.4" , "1.82" , "21.45" , "19.82" , "9.32" , "0.86" , "6.5" , "-" , "15.37" , "5" , "9.73" , "20.53" , "12.4" ,
  37.                "1.532" , "12.6" , "6.93" , "2.5" , "4.82" , "2.42" , "10.5" , "0.97" , "2.6" , "2.07" , "16.6" , "11.49" , "6.25" , "8.33" , "11.85" , "11.2" , "9.35" , "7.28" , "4.5" , "19.3" , "-" , "-" , "-" , "18.7" , "5.96" , "5.851" ,
  38.                "7.01" , "5.51" , "7.14" , "6.4" };
  39. static char *melting[] = { "1050" , "660" , "<110" , "630.5" , "-189.2" , "814" , "302" , "850" , "-" , "1278" , "271.3" , "2300" , "-7.2" , "320.9" , "845" , "-" , "3700" , "640" , "28.5" , "-103" , "1890" , "1495" , "1083" , "1340" , "1409" , "-" ,
  40.                "1250" , "1150" , "-" , "-223" , "27" , "1311" , "29.78" , "958.5" , "1063" , "2207" , "-272.2" , "1470" , "-259.14" , "156.4" , "113.7" , "2454" , "1535" , "-156.6" , "826" , "-" , "327.4" , "186" , "1656" , "651" , "1260" ,
  41.                "-" , "-38.87" , "2620" , "840" , "-248.7" , "640" , "1455" , "1950" , "-209.9" , "-" , "2700" , "218.4" , "1549" , "44.1" , "1773" , "639.5" , "254" , "62.3" , "940" , "1080" , "1000" , "960" , "-110" , "3160" , "1985" ,
  42.                "38.5" , ">1950" , "1350" , "1200" , "220" , "1420" , "960.8" , "97.5" , "757" , "112.8" , "3027" , "2172" , "452" , "303" , "302" , "1750" , "1545" , "231.9" , "1800" , "3370" , "-" , "-" , "-" , "1133" , "1710" , "-112" ,
  43.                "824" , "1490" , "419.5" , "1900" };
  44. static char *boiling[] = { "3200" , "2057" , "-" , "1750" , "-185.7" , "615" , "337" , "1140" , "-" , "2970" , "1560" , "2550" , "58.78" , "767" , "1240" , "-" , "4200" , "1400" , "670" , "-34.6" , "2200" , "2900" , "2336" , "-" , "2335" , "-" , "2510" ,
  45.  
  46.  
  47.                "1597" , "-" , "-188" , "77" , "3233" , "1983" , "2700" , "2600" , "4000" , "-268.9" , "2720" , "-252.8" , "2000" , "184.35" , ">4800" , "3000" , "-152.9" , "1800" , "-" , "1620" , "1336" , "3315" , "1107" , "1900" , "-" ,
  48.                "356.58" , "5560" , "-" , "-245.9" , "-" , "2900" , "2900" , "-195.8" , "-" , ">5300" , "182.96" , "2540" , "280" , "4300" , "3508" , "962" , "760" , "-" , "2460" , "-" , "1140" , "-61.8" , "-" , ">2500" , "700" , "-" , "-" ,
  49.                "2400" , "688" , "2600" , "1950" , "880" , "1150" , "444.6" , "4100" , "4877" , "1390" , "1457" , "1457" , ">3000" , "1727" , "2270" , ">3000" , "5900" , "-" , "-" , "-" , "3818" , "3000" , "-107" , "1193" , "2500" , "907" ,
  50.                "-2900" };
  51. static char *discovered[] = { "1899" , "1754" , "1944" , "ancient" , "1894" , "1649" , "1940" , "1774" , "1949" , "1798" , "1737" , "1702" , "1826" , "1817" , "1808" , "1949" , "ancient" , "1803" , "1860" , "1810" , "1797" , "1737" , "ancient" , "1944" ,
  52.                   "1886" , "1952" , "1843" , "1901" , "1952" , "1768" , "1939" , "1886" , "1875" , "1886" , "ancient" , "1923" , "1895" , "1879" , "1671" , "1863" , "1811" , "1804" , "ancient" , "1898" , "1839" , "1961" , "ancient" , "1817" ,
  53.                   "1907" , "1755" , "1774" , "1955" , "ancient" , "1777" , "1885" , "1898" , "1940" , "1751" , "1801" , "1772" , "1957" , "1804" , "1774" , "1803" , "1669" , "1748" , "1940" , "1898" , "1702" , "1885" , "1947" , "1917" ,
  54.                   "1898" , "1900" , "1925" , "1803" , "1861" , "1844" , "1879" , "1879" , "1818" , "1824" , "ancient" , "1702" , "1790" , "ancient" , "1802" , "1937" , "1783" , "1843" , "1861" , "1828" , "1879" , "ancient" , "1791" , "1783" ,
  55.                   "-" , "-" , "-" , "1789" , "1831" , "1898" , "1907" , "1794" , "1742" , "1789" };
  56.  
  57.